home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / macmenus.arc / WPMM312M.DEF < prev    next >
Text File  |  1989-06-03  |  46KB  |  1,455 lines

  1. BEGIN LeftB,RightB,macmenu,mousel,mouser,mouseu,moused,64,64
  2. ;WP 5.0 LOGIMENU/WINDOWS-LIKE INTERFACE TO EMULATE WP MAC 1.0.2 COMMANDS
  3. ;USE THE WINDOWS/MACINTOSH CONCEPT OF BLOCK SELECTION PRIOR TO COMMAND
  4. ;SELECTION WHERE APPROPRIATE MICROSOFT (2 BUTTON MOUSE), 25 LINE DISPLAY
  5. ;(c) D.PETHERICK (73627,226) MAY 31/89 version 3.1 
  6. ;
  7. ;Bugs fixed 1/macspecial label moved, 2/nothing: nothing line deleted
  8. ;This fixes problem with spell check menu on some clones and PCjr and
  9. ;makes this .DEF file compatible with the latest version of MAKEMENU.EXE
  10. ;
  11. ;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE <MATCH 25> WITH <MATCH XX>
  12. ;THROUGHOUT THIS .DEF FILE THEN RECOMPILE USING MAKEMENU.EXE
  13.  
  14. LeftB:     TYPE 0,107            ;block on toggle
  15. RightB:     nothing                ;select menu item
  16.  
  17. mousel:     TYPE 0,75                ;left
  18. mouser:     TYPE 0,77                ;right
  19. mouseu:     TYPE 0,72                ;up
  20. moused:     TYPE 0,80                ;down
  21.  
  22. exit:     MATCH 25,1,,"Block",noblockmsg,ctovr1
  23. ctovr1: MATCH 25,11,,"Block",noblockmsg,exitcont
  24. exitcont:     TYPE 0,65                ;exit
  25.  
  26. entr:     TYPE ENTER
  27.  
  28. cancel:     TYPE 0,59                ;cancel
  29.  
  30. quitnosave:     MATCH 25,1,,"Block",noblockmsg,ctovr2
  31. ctovr2: MATCH 25,11,,"Block",noblockmsg,qnscont
  32. qnscont:     TYPE 0,65, "NY"        ;exit,no,yes
  33.  
  34. macmenu:     POPUP 1,3,INVERSE
  35.  
  36. ;      23456789012345678901234567890123456789012345678901234567
  37. TEXT "╔═════════════════════════════════════════════════════════╦════════════╗"
  38. TEXT "║Help  File  Edit  Search  Format  Font  Special  Windows ║*WP5MACMENU*║█"
  39. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔═══════════════════════════════════════╩══════[3.1]═╝█"
  40. TEXT "║P│B│U│I│O│S│S│S║██████████████████████████████████████████████████████"
  41. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝█"
  42. TEXT "████████████████████"
  43.  
  44.  
  45.         SELECT 2,2,4, helpmenu1
  46.         SELECT 2,8,4, filemenu
  47.         SELECT 2,14,4, editmenu
  48.         SELECT 2,20,6, searchmenu
  49.         SELECT 2,28,6, formatmenu
  50.         SELECT 2,36,4, fontmenu
  51.         SELECT 2,42,7, specialmenu
  52.         SELECT 2,51,7, windowsmenu
  53.         SELECT 4,2,1,  ptproc
  54.         SELECT 4,4,1,  boproc
  55.         SELECT 4,6,1,  unproc
  56.         SELECT 4,8,1,  itproc
  57.         SELECT 4,10,1, otproc
  58.         SELECT 4,12,1, shproc
  59.         SELECT 4,14,2, spproc
  60.         SELECT 4,17,2, sbproc
  61.         PEND
  62.  
  63. helpmenu1:     POPUP 2,3,INVERSE
  64.  
  65.             TEXT "┌[Help]──────────┐"
  66.             TEXT "│WordPerfect Help   │"
  67.             TEXT "│2 Button Mouse Help│"
  68.             TEXT "│About WP5MACMENU... │"
  69.             TEXT "└────────────────────┘"
  70.  
  71.             SELECT 1,2,4,helpexit
  72.             SELECT 2,2,20,helpexec
  73.             SELECT 3,2,20,lmousehelp
  74.             SELECT 4,2,20,aboutmsg
  75.             PEND
  76.  
  77. helpexit:         EXECUTE entr,backspc,macmenu
  78. helpexec:         EXECUTE helpstart,helpmenu2
  79. helpstart:     TYPE 0,61
  80. backspc:         TYPE BACKSP
  81.  
  82. helpmenu2:    POPUP 1,10,INVERSE
  83.  
  84. TEXT "┌[WordPerfect Help]─────────────────────────────────────────┐"
  85. TEXT "│ Control-Fn   Alt-Fn        Shift-Fn      Fn alone             │█"
  86. TEXT "╞══════════════════════════════════════════════════════╗        │█"
  87. TEXT "│ Shell        Thesaurus     Setup         Cancel      ║  (F1)  │█"
  88. TEXT "│ Spell        Replace       <Search       >Search     ║  (F2)  │█"
  89. TEXT "│ Screen       Reveal Codes  Switch        Help        ║  (F3)  │█"
  90. TEXT "│ Move         Block         >Indent<      >Indent     ║  (F4)  │█"
  91. TEXT "│ Text In/Out  Mark Text     Date/Outline  List Files  ║  (F5)  │█"
  92. TEXT "│ Tab Align    Flush Right   Center        Bold        ║  (F6)  │█"
  93. TEXT "│ Footnote     Math/Columns  Print         Exit        ║  (F7)  │█"
  94. TEXT "│ Font         Style         Format        Underline   ║  (F8)  │█"
  95. TEXT "│ Merge/Sort   Graphics      Merge Codes   Merge R     ║  (F9)  │█"
  96. TEXT "│ Macro Define Macro         Retrieve      Save        ║  (F10) │█"
  97. TEXT "│ Compose                                              ║  (^V)  │█"
  98. TEXT "├────────────────────────────────────────────────┐    ┌╨────────┤█"
  99. TEXT "│ SELECT ITEM FOR HELP - <spacebar> or <enter> or│EXIT│to leave │█"
  100. TEXT "└────────────────────────────────────────────────┴────┴─────────┘█"
  101. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔    ┌─Plain Text ┐█████████████████████████████"
  102. TEXT "║P│B│U│I│O│S│S│S║    │ Bold       │█"
  103. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝    │ Underline  │█"
  104. TEXT " └┬──────────────┴─────┤ Italic     │█"
  105. TEXT "  │                    │ Outline    │█"
  106. TEXT "  └ Quick Character    │ Shadow     │█"
  107. TEXT "    Style Selector     │ Superscript│█"
  108. TEXT "                       └ Subscript  ┘█"
  109. TEXT "██████████████████████████████████████"
  110.  
  111.             SELECT 1,2,4,helpmenu1
  112.             SELECT 4,3,12,cf1
  113.             SELECT 5,3,12,cf2
  114.             SELECT 6,3,12,cf3
  115.             SELECT 7,3,12,cf4
  116.             SELECT 8,3,12,cf5
  117.             SELECT 9,3,12,cf6
  118.             SELECT 10,3,12,cf7
  119.             SELECT 11,3,12,cf8
  120.             SELECT 12,3,12,cf9
  121.             SELECT 13,3,12,cf10
  122.             SELECT 14,3,12,composehlp
  123.             SELECT 4,16,12,af1
  124.             SELECT 5,16,12,af2
  125.             SELECT 6,16,12,af3
  126.             SELECT 7,16,12,af4
  127.             SELECT 8,16,12,af5
  128.             SELECT 9,16,12,af6
  129.             SELECT 10,16,12,af7
  130.             SELECT 11,16,12,af8
  131.             SELECT 12,16,12,af9
  132.             SELECT 13,16,12,af10
  133.             SELECT 4,30,12,sf1
  134.             SELECT 5,30,12,sf2
  135.             SELECT 6,30,12,sf3
  136.             SELECT 7,30,12,sf4
  137.             SELECT 8,30,12,sf5
  138.             SELECT 9,30,12,sf6
  139.             SELECT 10,30,12,sf7
  140.             SELECT 11,30,12,sf8
  141.             SELECT 12,30,12,sf9
  142.             SELECT 13,30,12,sf10
  143.             SELECT 4,44,12,f1
  144.             SELECT 5,44,12,f2
  145.             SELECT 6,44,12,f3
  146.             SELECT 7,44,12,f4
  147.             SELECT 8,44,12,f5
  148.             SELECT 9,44,12,f6
  149.             SELECT 10,44,12,f7
  150.             SELECT 11,44,12,f8
  151.             SELECT 12,44,12,f9
  152.             SELECT 13,44,12,f10
  153.             SELECT 16,51,4,exithelp
  154.             PEND
  155.  
  156. exithelp:         EXECUTE entr,backspc
  157.  
  158. cf1:             TYPE 0,94
  159. cf2:             TYPE 0,95
  160. cf3:             TYPE 0,96
  161. cf4:             TYPE 0,97
  162. cf5:             TYPE 0,98
  163. cf6:             TYPE 0,99
  164. cf7:             TYPE 0,100
  165. cf8:             TYPE 0,101
  166. cf9:             TYPE 0,102
  167. cf10:         TYPE 0,103
  168. composehlp:     TYPE 22
  169. af1:             TYPE 0,104
  170. af2:             TYPE 0,105
  171. af3:             TYPE 0,106
  172. af4:             TYPE 0,107
  173. af5:             TYPE 0,108
  174. af6:             TYPE 0,109
  175. af7:             TYPE 0,110
  176. af8:             TYPE 0,111
  177. af9:             TYPE 0,112
  178. af10:         TYPE 0,113
  179. sf1:             TYPE 0,84
  180. sf2:             TYPE 0,85
  181. sf3:             TYPE 0,86
  182. sf4:             TYPE 0,87
  183. sf5:             TYPE 0,88
  184. sf6:             TYPE 0,89
  185. sf7:             TYPE 0,90
  186. sf8:             TYPE 0,91
  187. sf9:             TYPE 0,92
  188. sf10:         TYPE 0,93
  189. f1:             TYPE 0,59
  190. f2:             TYPE 0,60
  191. f3:             TYPE 0,61
  192. f4:             TYPE 0,62
  193. f5:             TYPE 0,63
  194. f6:             TYPE 0,64
  195. f7:             TYPE 0,65
  196. f8:             TYPE 0,66
  197. f9:             TYPE 0,67
  198. f10:             TYPE 0,68
  199.  
  200. lmousehelp:    POPUP 4,10,INVERSE
  201.  
  202.             TEXT "┌[2 Button Mouse Help]──────────────┐"
  203.             TEXT "│          Mouse Button Help            │█"
  204.             TEXT "│ L   R - ( █ = Pressed, ░ = Released)  │█"
  205.             TEXT "├───────────────────────────────────────┤█"
  206.             TEXT "│ █   ░ - Block On/Off                  │█"
  207.             TEXT "│                                       │█"
  208.             TEXT "│ ░   █ - Select Menu Item              │█"
  209.             TEXT "│                                       │█"
  210.             TEXT "│ █   █ - Main Menu                     │█"
  211.             TEXT "└───────────────────────────────────────┘█"
  212.             TEXT "██████████████████████████████████████████"
  213.  
  214.             SELECT 1,2,4,helpmenu1
  215.             PEND
  216.  
  217.  
  218. filemenu:        POPUP 2,9,INVERSE
  219.  
  220.             TEXT "┌[File]──────────┐"
  221.             TEXT "│New        (No Save)│█"
  222.             TEXT "│Open...             │█"
  223.             TEXT "│Retrieve...         │█"
  224.             TEXT "│Close               │█"
  225.             TEXT "│Save                │█"
  226.             TEXT "│Save Selection As...│█"
  227.             TEXT "│Save Copy As...     │█"
  228.             TEXT "│File Management...  │█"
  229.             TEXT "│Print Options      │█"
  230.             TEXT "│Print...            │█"
  231.             TEXT "│WP Defaults        │█"
  232.             TEXT "│Transfer... (to DOS)│█"
  233.             TEXT "│Quit                │█"
  234.             TEXT "└────────────────────┘█"
  235.             TEXT "███████████████████████"
  236.  
  237.             SELECT 1,2,4,macmenu
  238.             SELECT 2,2,20,newproc
  239.             SELECT 3,2,20,f5
  240.             SELECT 4,2,20,sf10
  241.             SELECT 5,2,20,closeproc
  242.             SELECT 6,2,20,f10
  243.             SELECT 7,2,20,saveselproc
  244.             SELECT 8,2,20,savecopyproc
  245.             SELECT 9,2,20,f5
  246.             SELECT 10,2,20,printoptproc
  247.             SELECT 11,2,20,sf7
  248.             SELECT 12,2,20,wpdefproc
  249.             SELECT 13,2,20,cf1
  250.             SELECT 14,2,20,quitproc
  251.             PEND
  252.  
  253.  
  254. macfile:         EXECUTE macmenu
  255.                                 ;IBM equivalent selections
  256.  
  257. newproc:     MATCH 25,1,,"Block",noblockmsg,ctovr3
  258. ctovr3: MATCH 25,11,,"Block",noblockmsg,newcont
  259. newcont:         TYPE 0,65, "NN"        ;exit,no,no
  260.  
  261.  
  262. openproc:     MATCH 25,1,,"Block",noblockmsg,ctovr4
  263. ctovr4: MATCH 25,11,,"Block",noblockmsg,opencont
  264. opencont:         TYPE 0,63                ;list files
  265.  
  266. retrproc:     MATCH 25,1,,"Block",noblockmsg,ctovr5
  267. ctovr5: MATCH 25,11,,"Block",noblockmsg,retrcont
  268. retrcont:         TYPE 0,93                ;retrieve
  269.  
  270. closeproc:     MATCH 25,1,,"Block",noblockmsg,ctovr6
  271. ctovr6: MATCH 25,11,,"Block",noblockmsg,closecont
  272. closecont:     TYPE 0,65, "Y"            ;exit,yes...
  273.  
  274. saveproc:         TYPE 0,68                ;save (file or block)
  275.  
  276. saveselproc:     MATCH 25,1,,"Block",saveselcont,ctovr7
  277. ctovr7: MATCH 25,11,,"Block",saveselcont,blockmsg
  278. saveselcont:     TYPE 0,68                ;save (block)
  279.  
  280. savecopyproc:     MATCH 25,1,,"Block",noblockmsg,ctovr8
  281. ctovr8: MATCH 25,11,,"Block",noblockmsg,savecopycont
  282. savecopycont:     TYPE 0,98                ;text in/out(save as other...)
  283.  
  284. filemgtproc:     MATCH 25,1,,"Block",noblockmsg,ctovr9
  285. ctovr9: MATCH 25,11,,"Block",noblockmsg,filemgtcont
  286. filemgtcont:     TYPE 0,63                ;list files
  287.  
  288. printproc:     TYPE 0,90                ;print (file or block)
  289.  
  290. printoptproc:    POPUP 12,16,INVERSE
  291.  
  292.             TEXT "┌[Print Options]─┐"
  293.             TEXT "│Page Setup...       │█"
  294.             TEXT "│Print Preview...    │█"
  295.             TEXT "│Print Selection...  │█"
  296.             TEXT "│Postscript...     NA│█"
  297.             TEXT "├─<WP 5.0>──────────┤█"
  298.             TEXT "│Select Printer...   │█"
  299.             TEXT "│Printer Control...  │█"
  300.             TEXT "│Printer Forms...    │█"
  301.             TEXT "│Binding Width...    │█"
  302.             TEXT "│Text Quality...     │█"
  303.             TEXT "└────────────────────┘█"
  304.             TEXT "███████████████████████"
  305.  
  306.             SELECT 1,2,4,filemenu
  307.             SELECT 2,2,20,pagesetupproc
  308.             SELECT 3,2,20,printprevproc
  309.             SELECT 4,2,20,printselproc
  310.             SELECT 5,2,20,pscriptproc
  311.             SELECT 7,2,20,selptrproc
  312.             SELECT 8,2,20,ptrctlproc
  313.             SELECT 9,2,20,ptrformproc
  314.             SELECT 10,2,20,ptrbwproc
  315.             SELECT 11,2,20,ptrtqproc
  316.             PEND
  317.  
  318. pagesetupproc:         MATCH 25,1,,"Block",noblockmsg,ctovr10
  319. ctovr10: MATCH 25,11,,"Block",noblockmsg,pagesetupcont
  320. pagesetupcont:     TYPE 0,91, "P"            ;format,page
  321.  
  322. printprevproc:         MATCH 25,1,,"Block",noblockmsg,ctovr11
  323. ctovr11: MATCH 25,11,,"Block",noblockmsg,printprevcont
  324. printprevcont:     TYPE 0,90, "V"            ;print,view
  325.  
  326. printselproc:     TYPE 0,90                ;print (file or block)
  327. pscriptproc:     EXECUTE notpossmsg        ;not implemented
  328.  
  329. selptrproc:         MATCH 25,1,,"Block",noblockmsg,ctovr12
  330. ctovr12: MATCH 25,11,,"Block",noblockmsg,selptrcont
  331. selptrcont:     TYPE 0,90, "S"            ;print,select printer
  332.  
  333. ptrctlproc:         MATCH 25,1,,"Block",noblockmsg,ctovr13
  334. ctovr13: MATCH 25,11,,"Block",noblockmsg,ptrctlcont
  335. ptrctlcont:     TYPE 0,90, "C"            ;print,printer control
  336.  
  337. ptrformproc:         MATCH 25,1,,"Block",noblockmsg,ctovr14
  338. ctovr14: MATCH 25,11,,"Block",noblockmsg,ptrformcont
  339. ptrformcont:     TYPE 0,90, "SEF"        ;print,select printer,edit,forms
  340.  
  341. ptrbwproc:         MATCH 25,1,,"Block",noblockmsg,ctovr15
  342. ctovr15: MATCH 25,11,,"Block",noblockmsg,ptrbwcont
  343. ptrbwcont:     TYPE 0,90, "B"            ;print,binding
  344.  
  345. ptrtqproc:         MATCH 25,1,,"Block",noblockmsg,ctovr16
  346. ctovr16: MATCH 25,11,,"Block",noblockmsg,ptrtqcont
  347. ptrtqcont:     TYPE 0,90, "T"            ;print,text quality
  348.  
  349. wpdefproc:         MATCH 25,1,,"Block",noblockmsg,ctovr17
  350. ctovr17: MATCH 25,11,,"Block",noblockmsg,wpdefcont
  351. wpdefcont:        POPUP 13,16,INVERSE
  352.  
  353.             TEXT "┌[WP Defaults]───┐"
  354.             TEXT "│Save Settings(Setup)│█"
  355.             TEXT "│Backup Options...   │█"
  356.             TEXT "│Beep Options...     │█"
  357.             TEXT "│Default Folders...  │█"
  358.             TEXT "│Measurement...      │█"
  359.             TEXT "└────────────────────┘█"
  360.             TEXT "███████████████████████"
  361.  
  362.             SELECT 1,2,4,filemenu
  363.             SELECT 2,2,20,savesetproc
  364.             SELECT 3,2,20,backoptproc
  365.             SELECT 4,2,20,beepoptproc
  366.             SELECT 5,2,20,deffoldproc
  367.             SELECT 6,2,20,measproc
  368.             PEND
  369.  
  370. savesetproc:     TYPE 0,84                ;setup         
  371. backoptproc:     TYPE 0,84, "B"            ;setup,backup
  372. beepoptproc:     TYPE 0,84, "IB"        ;setup,initial,beep
  373. deffoldproc:     TYPE 0,84, "L"            ;setup,location
  374. measproc:         TYPE 0,84, "U"            ;setup,units
  375.  
  376. transproc:     MATCH 25,1,,"Block",noblockmsg,ctovr18
  377. ctovr18: MATCH 25,11,,"Block",noblockmsg,transcont
  378. transcont:     TYPE 0,94                ;shell
  379.  
  380.  
  381. quitproc:     MATCH 25,1,,"Block",noblockmsg,ctovr19
  382. ctovr19: MATCH 25,11,,"Block",noblockmsg,quitcont
  383. quitcont:         TYPE 0,65            ;exit
  384.  
  385.  
  386. editmenu:        POPUP 2,15,INVERSE
  387.  
  388.             TEXT "┌[Edit]──────────┐"
  389.             TEXT "│Undo              NA│█"
  390.             TEXT "│Cut (and Move Block)│█"
  391.             TEXT "│Copy         (Block)│█"
  392.             TEXT "│Paste(Last Blk Move)│█"
  393.             TEXT "│Append   (Block to)│█"
  394.             TEXT "│Undelete...         │█"
  395.             TEXT "│Typeover/Insert     │█"
  396.             TEXT "│Case Convert(Block)│█"
  397.             TEXT "│Insert Literal...   │█"
  398.             TEXT "│Select      (Block)│█"
  399.             TEXT "│Show/Hide Codes     │█"
  400.             TEXT "├─<WP 5.0>──────────┤█"
  401.             TEXT "│Delete             │█"
  402.             TEXT "│Move/Copy Item     │█"
  403.             TEXT "│Comment...          │█"
  404.             TEXT "└────────────────────┘█"
  405.             TEXT "███████████████████████"
  406.  
  407.             SELECT 1,2,4,macedit
  408.             SELECT 2,2,20,undoproc
  409.             SELECT 3,2,20,cutproc
  410.             SELECT 4,2,20,copyproc
  411.             SELECT 5,2,20,pasteproc
  412.             SELECT 6,2,20,appeproc
  413.             SELECT 7,2,20,undelproc
  414.             SELECT 8,2,20,toverproc
  415.             SELECT 9,2,20,caseconvproc
  416.             SELECT 10,2,20,literalproc
  417.             SELECT 11,2,20,selectproc
  418.             SELECT 12,2,20,codeproc
  419.             SELECT 14,2,20,deleteproc
  420.             SELECT 15,2,20,movecopyproc
  421.             SELECT 16,2,20,commentproc
  422.             PEND
  423.  
  424. macedit:         EXECUTE macmenu
  425.  
  426. undoproc:         EXECUTE notpossmsg        ;not implemented
  427.  
  428. cutproc:         MATCH 25,1,,"Block",cutcont,ctovr20
  429. ctovr20: MATCH 25,11,,"Block",cutcont,blockmsg
  430. cutcont:         TYPE 0,97,"BM"            ;move,block,move
  431.  
  432. copyproc:         MATCH 25,1,,"Block",copycont,ctovr21
  433. ctovr21: MATCH 25,11,,"Block",copycont,blockmsg
  434. copycont:         TYPE 0,97,"BC"            ;move,block,copy
  435.  
  436. pasteproc:     MATCH 25,1,,"Block",noblockmsg,ctovr22
  437. ctovr22: MATCH 25,11,,"Block",noblockmsg,pastecont
  438. pastecont:     TYPE 0,97, "R"        ;move,retrieve
  439.  
  440. appeproc:         MATCH 25,1,,"Block",appecont,ctovr23
  441. ctovr23: MATCH 25,11,,"Block",appecont,blockmsg
  442. appecont:        POPUP 7,22,INVERSE
  443.  
  444.             TEXT "┌[Append]────────┐"
  445.             TEXT "│To Clipboard      NA│█"
  446.             TEXT "│To File...          │█"
  447.             TEXT "└────────────────────┘█"
  448.             TEXT "███████████████████████"
  449.  
  450.             SELECT 1,2,4,editmenu
  451.             SELECT 2,2,20,aclipproc
  452.             SELECT 3,2,20,afileproc
  453.             PEND
  454.  
  455. aclipproc:     EXECUTE notpossmsg
  456. afileproc:     TYPE 0,97, "BA"        ;move,block,append...
  457.  
  458. undelproc:     MATCH 25,1,,"Block",noblockmsg,ctovr24
  459. ctovr24: MATCH 25,11,,"Block",noblockmsg,undelcont
  460. undelcont:     TYPE 0,59                ;cancel...
  461.  
  462. toverproc:     TYPE 0,82                ;insert toggle
  463.  
  464. caseconvproc:     MATCH 25,1,,"Block",caseconvcont,ctovr25
  465. ctovr25: MATCH 25,11,,"Block",caseconvcont,blockmsg
  466. caseconvcont:    POPUP 10,22,INVERSE
  467.  
  468.             TEXT "┌[Case Convert]──┐"
  469.             TEXT "│To UPPER            │█"
  470.             TEXT "│To lower            │█"
  471.             TEXT "└────────────────────┘█"
  472.             TEXT "███████████████████████"
  473.  
  474.             SELECT 1,2,4,editmenu
  475.             SELECT 2,2,20,upperproc
  476.             SELECT 3,2,20,lowerproc
  477.             PEND
  478.  
  479. upperproc:     TYPE 0,86, "U"            ;switch,upper
  480. lowerproc:     TYPE 0,86, "L"            ;switch,lower
  481.  
  482. literalproc:     MATCH 25,1,,"Block",noblockmsg,ctovr26
  483. ctovr26: MATCH 25,11,,"Block",noblockmsg,literalcont
  484. literalcont:     TYPE 22                ;compose (Ctrl-V)
  485.  
  486. selectproc:     MATCH 25,1,,"Block",noblockmsg,ctovr27
  487. ctovr27: MATCH 25,11,,"Block",noblockmsg,selectcont
  488. selectcont:    POPUP 12,22,INVERSE
  489.  
  490.             TEXT "┌[Select]────────┐"
  491.             TEXT "│Select On/Off     NA│█"
  492.             TEXT "│Sentence            │█"
  493.             TEXT "│Paragraph           │█"
  494.             TEXT "│Page                │█"
  495.             TEXT "│Column              │█"
  496.             TEXT "│All                 │█"
  497.             TEXT "└────────────────────┘█"
  498.             TEXT "███████████████████████"
  499.  
  500.             SELECT 1,2,4,editmenu
  501.             SELECT 2,2,20,selonproc
  502.             SELECT 3,2,20,sentproc
  503.             SELECT 4,2,20,paraproc
  504.             SELECT 5,2,20,pageproc
  505.             SELECT 6,2,20,bcolproc
  506.             SELECT 7,2,20,allproc
  507.             PEND
  508.  
  509. selonproc:     EXECUTE notpossmsg        ;not implemented
  510. sentproc:         EXECUTE getsent,cancel
  511. getsent:         TYPE 0,97, "SA"    ;move,sentence,append,cancel
  512.  
  513. paraproc:         EXECUTE getpara,cancel
  514. getpara:         TYPE 0,97, "PA"    ;move,paragraph,append,cancel
  515.  
  516. pageproc:         EXECUTE getpage,cancel
  517. getpage:         TYPE 0,97, "aA"    ;move,page,append,cancel
  518.  
  519. bcolproc:         TYPE 0,113, "CLMN",ENTER    ;macro to select column
  520. allproc:         TYPE 0,113, "ALL",ENTER    ;macro to select all
  521.  
  522. codeproc:         TYPE 0,106            ;reveal codes toggle
  523.  
  524. movecopyproc:     MATCH 25,1,,"Block",noblockmsg,ctovr28
  525. ctovr28: MATCH 25,11,,"Block",noblockmsg,movecopycont
  526. movecopycont:    POPUP 15,22,INVERSE
  527.  
  528.             TEXT "┌[Move/Copy Item]┐"
  529.             TEXT "│Sentence            │█"
  530.             TEXT "│Paragraph           │█"
  531.             TEXT "│Page                │█"
  532.             TEXT "│Retrieve            │█"
  533.             TEXT "└────────────────────┘█"
  534.             TEXT "███████████████████████"
  535.  
  536.             SELECT 1,2,4,editmenu
  537.             SELECT 2,2,20,mcsentproc
  538.             SELECT 3,2,20,mcparaproc
  539.             SELECT 4,2,20,mcpageproc
  540.             SELECT 5,2,20,mcretrproc
  541.             PEND
  542.  
  543. mcsentproc:     TYPE 0,97, "S"        ;move,sentence
  544. mcparaproc:     TYPE 0,97, "P"        ;move,paragraph
  545. mcpageproc:     TYPE 0,97, "a"        ;move,page
  546. mcretrproc:     TYPE 0,97, "R"        ;move,retrieve
  547.  
  548. deleteproc:    POPUP 14,22,INVERSE
  549.  
  550.             TEXT "┌[Delete]────────┐"
  551.             TEXT "│Block               │█"
  552.             TEXT "│Word                │█"
  553.             TEXT "│To End of Line      │█"
  554.             TEXT "│To End of Page      │█"
  555.             TEXT "│To Word Beginning   │█"
  556.             TEXT "│To Word End         │█"
  557.             TEXT "└────────────────────┘█"
  558.             TEXT "███████████████████████"
  559.  
  560.             SELECT 1,2,4,filemenu
  561.             SELECT 2,2,20,delblkproc
  562.             SELECT 3,2,20,delwordproc
  563.             SELECT 4,2,20,deleolproc
  564.             SELECT 5,2,20,deleopproc
  565.             SELECT 6,2,20,delwbproc
  566.             SELECT 7,2,20,delweproc
  567.             PEND
  568.  
  569. delblkproc:     MATCH 25,1,,"Block",delblkcont,ctovr29
  570. ctovr29: MATCH 25,11,,"Block",delblkcont,blockmsg
  571. delblkcont:         TYPE 0,97,"BD"            ;move,block,delete
  572.  
  573. delwordproc:     MATCH 25,1,,"Block",noblockmsg,ctovr30
  574. ctovr30: MATCH 25,11,,"Block",noblockmsg,delwordcont
  575. delwordcont:     TYPE 0,113, "DELWORD",ENTER    ;^backspace macro
  576.  
  577. deleolproc:     MATCH 25,1,,"Block",noblockmsg,ctovr31
  578. ctovr31: MATCH 25,11,,"Block",noblockmsg,deleolcont
  579. deleolcont:     TYPE 0,117            ;^end
  580.  
  581. deleopproc:     MATCH 25,1,,"Block",noblockmsg,ctovr32
  582. ctovr32: MATCH 25,11,,"Block",noblockmsg,deleopcont
  583. deleopcont:     TYPE 0,118            ;^pgdn
  584.  
  585. delwbproc:     MATCH 25,1,,"Block",noblockmsg,ctovr33
  586. ctovr33: MATCH 25,11,,"Block",noblockmsg,delwbcont
  587. delwbcont:     EXECUTE hm,backspc        ;home,backspace
  588. hm:             TYPE 0,71                ;home
  589.  
  590. delweproc:     MATCH 25,1,,"Block",noblockmsg,ctovr34
  591. ctovr34: MATCH 25,11,,"Block",noblockmsg,delwecont
  592. delwecont:     EXECUTE hm,del            ;home,delete
  593. del:             TYPE 0,83                ;delete
  594.  
  595. commentproc:     TYPE 0,98                ;text in/out (comment)
  596.  
  597. searchmenu:    POPUP 2,21, INVERSE
  598.  
  599.             TEXT "┌[Search]────────┐"
  600.             TEXT "│Forward...          │█"
  601.             TEXT "│Backward...         │█"
  602.             TEXT "│Replace...          │█"
  603.             TEXT "│Goto...             │█"
  604.             TEXT "└────────────────────┘█"
  605.             TEXT "███████████████████████"
  606.  
  607.             SELECT 1,2,4,macsearch
  608.             SELECT 2,2,20,forproc
  609.             SELECT 3,2,20,backproc
  610.             SELECT 4,2,20,replproc
  611.             SELECT 5,2,20,gotoproc
  612.             PEND
  613.  
  614. macsearch:     EXECUTE macmenu
  615.  
  616. forproc:         TYPE 0,60                ;->search
  617. backproc:         TYPE 0,85                ;<-search
  618. replproc:         TYPE 0,105            ;replace
  619. gotoproc:         TYPE 0,119            ;goto
  620.  
  621. formatmenu:    POPUP 2,29,INVERSE
  622.  
  623.             TEXT "┌[Format]────────┐"
  624.             TEXT "│Show Ruler          │█"
  625.             TEXT "│Copy Ruler        NA│█"
  626.             TEXT "│Columns            │█"
  627.             TEXT "│Page               │█"
  628.             TEXT "│Paragraph          │█"
  629.             TEXT "│Line               │█"
  630.             TEXT "│Characters         │█"    
  631.             TEXT "├─<WP 5.0>──────────┤█"
  632.             TEXT "│Document...         │█"
  633.             TEXT "│Other...            │█"
  634.             TEXT "│Tab Align           │█"
  635.             TEXT "└────────────────────┘█"
  636.             TEXT "███████████████████████"
  637.  
  638.  
  639.             SELECT 1,2,4,macformat
  640.             SELECT 2,2,20,rulerproc
  641.             SELECT 3,2,20,cpyrulproc
  642.             SELECT 4,2,20,colfproc
  643.             SELECT 5,2,20,pagefproc
  644.             SELECT 6,2,20,parafproc
  645.             SELECT 7,2,20,linefproc
  646.             SELECT 8,2,20,charfproc
  647.             SELECT 10,2,20,docfproc
  648.             SELECT 11,2,20,otherfproc
  649.             SELECT 12,2,20,tabalignproc
  650.             PEND
  651.  
  652. macformat:     EXECUTE macmenu
  653.  
  654. rulerproc:     MATCH 25,1,,"Block",noblockmsg,ctovr35
  655. ctovr35: MATCH 25,11,,"Block",noblockmsg,rulercont
  656. rulercont:      TYPE 0,91,"1T"            ;format,line,tab set
  657.  
  658. cpyrulproc:     EXECUTE notpossmsg        ;not implemented
  659.  
  660. colfproc:         MATCH 25,1,,"Block",noblockmsg,ctovr36
  661. ctovr36: MATCH 25,11,,"Block",noblockmsg,colfcont
  662. colfcont:        POPUP 5,36,INVERSE
  663.  
  664.             TEXT "┌[Columns]───────┐"
  665.             TEXT "│Columns On/Off      │█"
  666.             TEXT "│Column Options...   │█"
  667.             TEXT "└────────────────────┘█"
  668.             TEXT "███████████████████████"
  669.  
  670.             SELECT 1,2,4,formatmenu
  671.             SELECT 2,2,20,colonproc
  672.             SELECT 3,2,20,coloptproc
  673.             PEND
  674.  
  675. colonproc:     TYPE 0,110, "C"        ;math/columns on/off toggle
  676. coloptproc:     TYPE 0,110            ;math/columns
  677.  
  678. pagefproc:    POPUP 6,36,INVERSE
  679.  
  680.             TEXT "┌[Page]──────────┐"
  681.             TEXT "│Page Layout...      │█"
  682.             TEXT "│Page Numbers...     │█"
  683.             TEXT "│Suppress Format...  │█"
  684.             TEXT "│Headers-Footers...  │█"
  685.             TEXT "│Conditional EOP...  │█"
  686.             TEXT "│Block Protect       │█"
  687.             TEXT "│Widow-Orphan        │█"
  688.             TEXT "└────────────────────┘█"
  689.             TEXT "███████████████████████"
  690.  
  691.             SELECT 1,2,4,formatmenu
  692.             SELECT 2,2,20,fppglayproc
  693.             SELECT 3,2,20,fppnproc
  694.             SELECT 4,2,20,fpsfproc
  695.             SELECT 5,2,20,fphfproc
  696.             SELECT 6,2,20,fpceopproc
  697.             SELECT 7,2,20,fpbpproc
  698.             SELECT 8,2,20,fpwoproc
  699.             PEND
  700.  
  701. fppglayproc:     MATCH 25,1,,"Block",noblockmsg,ctovr37
  702. ctovr37: MATCH 25,11,,"Block",noblockmsg,fppglaycont
  703. fppglaycont:     TYPE 0,91, "P"        ;format,page
  704.  
  705. fppnproc:         EXECUTE fppglayproc    ;format,page
  706.  
  707. fpsfproc:         MATCH 25,1,,"Block",noblockmsg,ctovr38
  708. ctovr38: MATCH 25,11,,"Block",noblockmsg,fpsfcont
  709. fpsfcont:         TYPE 0,91, "Pu"    ;format,page,suppress this page only
  710.  
  711. fphfproc:         EXECUTE fppglayproc    ;format,page
  712.  
  713. fpceopproc:     MATCH 25,1,,"Block",noblockmsg,ctovr39
  714. ctovr39: MATCH 25,11,,"Block",noblockmsg,fpceopcont
  715. fpceopcont:     TYPE 0,91, "OC"    ;format,other,ceop
  716.  
  717. fpbpproc:         MATCH 25,1,,"Block",fpbpcont,ctovr40
  718. ctovr40: MATCH 25,11,,"Block",fpbpcont,blockmsg
  719. fpbpcont:         TYPE 0,91           ;block on,format,block protect
  720.  
  721. fpwoproc:         MATCH 25,1,,"Block",noblockmsg,ctovr41
  722. ctovr41: MATCH 25,11,,"Block",noblockmsg,fpwocont
  723. fpwocont:         TYPE 0,91, "LW"    ;format,line,widow/orphan
  724.  
  725. parafproc:     MATCH 25,1,,"Block",noblockmsg,ctovr42
  726. ctovr42: MATCH 25,11,,"Block",noblockmsg,parafcont
  727. parafcont:    POPUP 7,36,INVERSE
  728.  
  729.             TEXT "┌[Paragraph]─────┐"
  730.             TEXT "│Outline             │█"
  731.             TEXT "│Paragraph Numbers...│█"
  732.             TEXT "│Paragraph Num Def...│█"
  733.             TEXT "│Indent              │█"
  734.             TEXT "│Left-Right Indent   │█"
  735.             TEXT "└────────────────────┘█"
  736.             TEXT "███████████████████████"
  737.  
  738.             SELECT 1,2,4,formatmenu
  739.             SELECT 2,2,20,froutlnproc
  740.             SELECT 3,2,20,frrnproc
  741.             SELECT 4,2,20,frrndproc
  742.             SELECT 5,2,20,fridproc
  743.             SELECT 6,2,20,frlridproc
  744.             PEND
  745.  
  746. froutlnproc:     TYPE 0,88, "O"        ;date/outline,outline
  747. frrnproc:         TYPE 0,88, "P"        ;date/outline,paragraph numbers
  748. frrndproc:     TYPE 0,88, "D"        ;date/outline,para num def
  749. fridproc:         TYPE 0,62             ;indent
  750. frlridproc:     TYPE 0,87            ;>indent<
  751.  
  752. linefproc:    POPUP 8,36,INVERSE
  753.  
  754.             TEXT "┌[Line]──────────┐"
  755.             TEXT "│Center              │█"
  756.             TEXT "│Flush Right         │█"
  757.             TEXT "│Tabs...             │█"
  758.             TEXT "│Hyphenation...      │█"
  759.             TEXT "│Spacing...          │█"
  760.             TEXT "│Kerning...          │█"
  761.             TEXT "├─<WP 5.0>──────────┤█"
  762.             TEXT "│L/R Margin...       │█"
  763.             TEXT "│<Margin Release     │█"
  764.             TEXT "│Justification...    │█"
  765.             TEXT "└────────────────────┘█"
  766.             TEXT "███████████████████████"
  767.  
  768.             SELECT 1,2,4,formatmenu
  769.             SELECT 2,2,20,flcntrproc
  770.             SELECT 3,2,20,flfrproc
  771.             SELECT 4,2,20,fltabproc
  772.             SELECT 5,2,20,flhyproc
  773.             SELECT 6,2,20,flspproc
  774.             SELECT 7,2,20,flkrnproc
  775.             SELECT 9,2,20,fllrmgnproc
  776.             SELECT 10,2,20,flmgnrelproc
  777.             SELECT 11,2,20,fljustproc
  778.             PEND
  779.  
  780. flcntrproc:     TYPE 0,89            ;center
  781. flfrproc:         TYPE 0,109        ;flush right
  782.  
  783. fltabproc:     MATCH 25,1,,"Block",noblockmsg,ctovr43
  784. ctovr43: MATCH 25,11,,"Block",noblockmsg,fltabcont
  785. fltabcont:     TYPE 0,91, "LT"    ;format,line,tab set
  786.  
  787. flhyproc:         MATCH 25,1,,"Block",noblockmsg,ctovr44
  788. ctovr44: MATCH 25,11,,"Block",noblockmsg,flhycont
  789. flhycont:         TYPE 0,91, "L"        ;format,line
  790.  
  791. fljustproc:        MATCH 25,1,,"Block",noblockmsg,ctovr44a
  792. ctovr44a:    MATCH 25,11,,"Block",noblockmsg,fljustcont
  793. fljustcont:        TYPE 0,91, "LJ"        ;format,line,justification
  794.  
  795. flspproc:         MATCH 25,1,,"Block",noblockmsg,ctovr45
  796. ctovr45: MATCH 25,11,,"Block",noblockmsg,flspcont
  797. flspcont:         TYPE 0,91, "LS"    ;format,line spacing
  798.  
  799. flkrnproc:     MATCH 25,1,,"Block",noblockmsg,ctovr46
  800. ctovr46: MATCH 25,11,,"Block",noblockmsg,flkrncont
  801. flkrncont:     TYPE 0,91, "OPK"    ;format,other,printer functions,kerning
  802.  
  803. fllrmgnproc:     MATCH 25,1,,"Block",noblockmsg,ctovr47
  804. ctovr47: MATCH 25,11,,"Block",noblockmsg,fllrmgncont
  805. fllrmgncont:     TYPE 0,91, "LM"    ;format,line,margins
  806.  
  807. flmgnrelproc:     MATCH 25,1,,"Block",noblockmsg,ctovr48
  808. ctovr48: MATCH 25,11,,"Block",noblockmsg,flmgnrelcont
  809. flmgnrelcont:     TYPE 0,113, "MGNREL",ENTER    ;shift tab (<mar rel) macro
  810.  
  811. charfproc:     EXECUTE styleproc    ;styleproc
  812.  
  813. docfproc:     MATCH 25,1,,"Block",noblockmsg,ctovr49
  814. ctovr49: MATCH 25,11,,"Block",noblockmsg,docfcont
  815. docfcont:      TYPE 0,91,"D"            ;format,document
  816.  
  817. otherfproc:     MATCH 25,1,,"Block",noblockmsg,ctovr50
  818. ctovr50: MATCH 25,11,,"Block",noblockmsg,otherfcont
  819. otherfcont:      TYPE 0,91,"O"            ;format,other
  820.  
  821. tabalignproc:     MATCH 25,1,,"Block",noblockmsg,ctovr51
  822. ctovr51: MATCH 25,11,,"Block",noblockmsg,tabaligncont
  823. tabaligncont:      TYPE 0,99            ;tab align
  824.  
  825. fontmenu:        POPUP 2,37,INVERSE
  826.  
  827.             TEXT "┌[Font]──────────┐"
  828.             TEXT "│Style              │█"
  829.             TEXT "│Font...             │█"
  830.             TEXT "└────────────────────┘█"
  831.             TEXT "███████████████████████"
  832.  
  833.             SELECT 1,2,4,macfont
  834.             SELECT 2,2,20,styleproc
  835.             SELECT 3,2,20,fontproc
  836.             PEND
  837.  
  838. macfont:         EXECUTE macmenu
  839.  
  840. styleproc:    POPUP 3,44,INVERSE
  841.  
  842.             TEXT "┌[Style]─────────┐"
  843.             TEXT "│Sizes...           │█"
  844.             TEXT "│Plain Text          │█"
  845.             TEXT "│Bold                │█"
  846.             TEXT "│Underline           │█"
  847.             TEXT "│Italics             │█"
  848.             TEXT "│Outline             │█"
  849.             TEXT "│Shadow              │█"
  850.             TEXT "│Superscript         │█"
  851.             TEXT "│Subscript           │█"
  852.             TEXT "│Overstrike          │█"
  853.             TEXT "│Strikeout           │█"
  854.             TEXT "│Redline             │█"
  855.             TEXT "├─<WP 5.0>──────────┤█"
  856.             TEXT "│Double Underline    │█"
  857.             TEXT "│Styles...           │█"
  858.             TEXT "└────────────────────┘█"
  859.             TEXT "███████████████████████"
  860.  
  861.             SELECT 1,2,4,fontmenu
  862.             SELECT 2,2,20,sizemenu
  863.             SELECT 3,2,20,ptproc 
  864.             SELECT 4,2,20,boproc
  865.             SELECT 5,2,20,unproc
  866.             SELECT 6,2,20,itproc
  867.             SELECT 7,2,20,otproc
  868.             SELECT 8,2,20,shproc
  869.             SELECT 9,2,20,spproc
  870.             SELECT 10,2,20,sbproc
  871.             SELECT 11,2,20,osproc
  872.             SELECT 12,2,20,stproc
  873.             SELECT 13,2,20,rdproc
  874.             SELECT 15,2,20,duproc
  875.             SELECT 16,2,20,otherstylesmenu
  876.             PEND
  877.  
  878. sizemenu:        POPUP 4,51,INVERSE
  879.  
  880.             TEXT "┌[Sizes]─────────┐"
  881.             TEXT "│Fine                │█"
  882.             TEXT "│Small               │█"
  883.             TEXT "│Large               │█"
  884.             TEXT "│Very Large          │█"
  885.             TEXT "│Extra Large         │█"
  886.             TEXT "└────────────────────┘█"
  887.             TEXT "███████████████████████"
  888.  
  889.             SELECT 1,2,4,styleproc
  890.             SELECT 2,2,20,fineproc 
  891.             SELECT 3,2,20,smallproc
  892.             SELECT 4,2,20,largeproc
  893.             SELECT 5,2,20,vlargeproc
  894.             SELECT 6,2,20,elargeproc
  895.             PEND
  896.  
  897. fineproc:         TYPE 0,101, "SF"    ;font,size,fine
  898. smallproc:     TYPE 0,101, "SS"    ;font,size,small
  899. largeproc:     TYPE 0,101, "SL"    ;font,size,large
  900. vlargeproc:     TYPE 0,101, "SV"    ;font,size,vry large
  901. elargeproc:     TYPE 0,101, "SE"    ;font,size,extra large
  902.  
  903. ptproc:         MATCH 25,1,,"Block",normalfontmsg,ctovr52
  904. ctovr52: MATCH 25,11,,"Block",normalfontmsg,ptcont
  905. ptcont:         TYPE 0,101, "N"    ;font,normal
  906.  
  907. boproc:         TYPE 0,101, "AB"    ;bold
  908. unproc:         TYPE 0,101, "AU"    ;underline
  909. itproc:         TYPE 0,101, "AI"    ;italic
  910. otproc:         TYPE 0,101, "AO"    ;outline
  911. shproc:         TYPE 0,101, "Aa"    ;shadow
  912. spproc:         TYPE 0,101, "Sp"    ;superscript
  913. sbproc:         TYPE 0,101, "Sb"    ;subscript
  914.  
  915. osproc:     MATCH 25,1,,"Block",noblockmsg,ctovr53
  916. ctovr53: MATCH 25,11,,"Block",noblockmsg,oscont
  917. oscont:         TYPE 0,91, "OO"    ;format,other,overstrike
  918.  
  919. stproc:         TYPE 0,101, "AS"    ;strikeout
  920. rdproc:         TYPE 0,101, "AR"    ;redline
  921. duproc:         TYPE 0,101, "AD"    ;double underline
  922. otherstylesmenu:     TYPE 0,111    ;style
  923.  
  924. fontproc:         TYPE 0,101        ;font
  925.  
  926. specialmenu:    POPUP 2,43,INVERSE
  927.  
  928.             TEXT "┌[Special]───────┐"
  929.             TEXT "│Spell              │█"
  930.             TEXT "│Thesaurus...        │█"
  931.             TEXT "│Merge...            │█"
  932.             TEXT "│Merge Codes        │█"
  933.             TEXT "│Macro              │█"
  934.             TEXT "│Footnotes          │█"
  935.             TEXT "│Date                │█"
  936.             TEXT "│Mark Text          │█"
  937.             TEXT "│Define Lists       │█"
  938.             TEXT "│Screen             │█"
  939.             TEXT "├─<WP 5.0>──────────┤█"
  940.             TEXT "│Math...             │█"
  941.             TEXT "│Sort...             │█"
  942.             TEXT "│Graphics...         │█"
  943.             TEXT "│Line Draw...        │█"
  944.             TEXT "│Lock Document...    │█"
  945.             TEXT "│Convert Document... │█"
  946.             TEXT "└────────────────────┘█"
  947.             TEXT "███████████████████████"
  948.  
  949.  
  950.             SELECT 1,2,4,macspecial
  951.             SELECT 2,2,20,spellproc
  952.             SELECT 3,2,20,af1
  953.             SELECT 4,2,20,mergeproc
  954.             SELECT 5,2,20,mercodeproc
  955.             SELECT 6,2,20,macroproc
  956.             SELECT 7,2,20,footproc
  957.             SELECT 8,2,20,sf5
  958.             SELECT 9,2,20,mrktxtproc
  959.             SELECT 10,2,20,deflstproc
  960.             SELECT 11,2,20,scrproc
  961.             SELECT 13,2,20,af7 
  962.             SELECT 14,2,20,cf9
  963.             SELECT 15,2,20,af9
  964.             SELECT 16,2,20,linedrawproc
  965.             SELECT 17,2,20,lockdocproc
  966.             SELECT 18,2,20,cf1        ;GO TO DOS THEN RUN CONVERT.EXE
  967.                                 ;TYPE 'EXIT' TO RETURN TO WP5
  968.             PEND
  969.  
  970. macspecial:     EXECUTE macmenu
  971.  
  972. spellproc:    POPUP 3,50,INVERSE
  973.  
  974.             TEXT "┌[Spell]─────────┐"
  975.             TEXT "│Speller...          │█"
  976.             TEXT "│Check Selection(Blk)│█"
  977.             TEXT "│Check Page...       │█"
  978.             TEXT "│Check Document...   │█"
  979.             TEXT "│Change Dictionary...│█"
  980.             TEXT "│Count...            │█"
  981.             TEXT "│Lookup...           │█"
  982.             TEXT "├─<WP 5.0>──────────┤█"
  983.             TEXT "│Check Word...       │█"
  984.             TEXT "└────────────────────┘█"
  985.             TEXT "███████████████████████"
  986.  
  987.  
  988.             SELECT 1,2,4,specialmenu
  989.             SELECT 2,2,20,spellerproc 
  990.             SELECT 3,2,20,chkselproc
  991.             SELECT 4,2,20,chkpageproc
  992.             SELECT 5,2,20,chkdocproc
  993.             SELECT 6,2,20,changedictproc
  994.             SELECT 7,2,20,countproc
  995.             SELECT 8,2,20,lookupproc
  996.             SELECT 10,2,20,chkwordproc
  997.             PEND
  998.  
  999. spellerproc:         TYPE 0,95            ;spell
  1000.  
  1001. chkselproc:     MATCH 25,1,,"Block",chkselcont,ctovr58a
  1002. ctovr58a: MATCH 25,11,,"Block",chkselcont,blockmsg
  1003. chkselcont:         TYPE 0,95            ;spell
  1004.  
  1005. chkpageproc:         TYPE 0,95, "P"        ;spell,page
  1006. chkdocproc:         TYPE 0,95, "D"        ;spell,document
  1007. changedictproc:     TYPE 0,95, "N"        ;spell,new sup. dict.
  1008. countproc:         TYPE 0,95, "C"        ;spell,count
  1009. lookupproc:         TYPE 0,95, "L"        ;spell,lookup
  1010.  
  1011. chkwordproc:         TYPE 0,95, "W"        ;spell,word
  1012.  
  1013. thesproc:         MATCH 25,1,,"Block",noblockmsg,ctovr54
  1014. ctovr54: MATCH 25,11,,"Block",noblockmsg,thescont
  1015. thescont:         TYPE 0,104            ;thesaurus
  1016.  
  1017. mergeproc:     MATCH 25,1,,"Block",noblockmsg,ctovr55
  1018. ctovr55: MATCH 25,11,,"Block",noblockmsg,mergecont
  1019. mergecont:     TYPE 0,102, "M"        ;merge,merge
  1020.  
  1021. mercodeproc:     MATCH 25,1,,"Block",noblockmsg,ctovr56
  1022. ctovr56: MATCH 25,11,,"Block",noblockmsg,mercodecont
  1023. mercodecont:    POPUP 6,50,INVERSE
  1024.  
  1025.             TEXT "┌[Merge Codes]───┐"
  1026.             TEXT "│From Keyboard     ^C│█"
  1027.             TEXT "│Date              ^D│█"
  1028.             TEXT "│End of Record     ^E│█"
  1029.             TEXT "│Retrieve Field   ^Fn│█"
  1030.             TEXT "│Invoke Macro      ^G│█"
  1031.             TEXT "│Next Record       ^N│█"
  1032.             TEXT "│New Primary       ^P│█"
  1033.             TEXT "│Stop Merge        ^Q│█"
  1034.             TEXT "│End of Field      ^R│█"
  1035.             TEXT "│New Secondary     ^S│█"
  1036.             TEXT "│To Printer        ^T│█"
  1037.             TEXT "│Update Screen     ^U│█"
  1038.             TEXT "│Transfer Codes    ^V│█"
  1039.             TEXT "├─<WP 5.0>──────────┤█"
  1040.             TEXT "│Status Line Msg   ^O│█"
  1041.             TEXT "└────────────────────┘█"
  1042.             TEXT "███████████████████████"
  1043.  
  1044.             SELECT 1,2,4,specialmenu
  1045.             SELECT 2,2,20,frmkbdproc
  1046.             SELECT 3,2,20,dtproc 
  1047.             SELECT 4,2,20,eorproc
  1048.             SELECT 5,2,20,rfproc
  1049.             SELECT 6,2,20,improc
  1050.             SELECT 7,2,20,nrproc
  1051.             SELECT 8,2,20,npproc
  1052.             SELECT 9,2,20,smproc
  1053.             SELECT 10,2,20,eofproc
  1054.             SELECT 11,2,20,nsproc
  1055.             SELECT 12,2,20,tpproc
  1056.             SELECT 13,2,20,usproc
  1057.             SELECT 14,2,20,tcproc
  1058.             SELECT 16,2,20,stlnmproc
  1059.             PEND
  1060.  
  1061. frmkbdproc:     TYPE 0,92, "C"    ;keyboard
  1062. dtproc:         TYPE 0,92, "D"    ;date
  1063. eorproc:         TYPE 0,92, "E"    ;end of record
  1064. rfproc:         TYPE 0,92, "F"    ;merge from field <n>
  1065. improc:         TYPE 0,92, "G"    ;invoke macro <macroname>
  1066. nrproc:         TYPE 0,92, "N"    ;next record
  1067. npproc:         TYPE 0,92, "P"    ;new primary file
  1068. smproc:         TYPE 0,92, "Q"    ;stop merge
  1069. eofproc:         TYPE 0,92, "R"    ;end of field
  1070. nsproc:         TYPE 0,92, "S"    ;new secondary file
  1071. tpproc:         TYPE 0,92, "T"    ;to printer
  1072. usproc:         TYPE 0,92, "U"    ;update screen
  1073. tcproc:         TYPE 0,92, "V"    ;transfer codes
  1074. stlnmproc:     TYPE 0,92, "O"    ;status line message
  1075.  
  1076. macroproc:    POPUP 7,50,INVERSE    
  1077.  
  1078.             TEXT "┌[Macro]─────────┐"
  1079.             TEXT "│Define Macro...     │█"
  1080.             TEXT "│Execute macro...    │█"
  1081.             TEXT "│Chain Macro...      │█"
  1082.             TEXT "│Macro Delay...      │█"
  1083.             TEXT "│Macro Input...      │█"
  1084.             TEXT "│Pause Macro...      │█"
  1085.             TEXT "└────────────────────┘█"
  1086.             TEXT "███████████████████████"
  1087.  
  1088.             SELECT 1,2,4,specialmenu
  1089.             SELECT 2,2,20,defmacproc
  1090.             SELECT 3,2,20,exemacproc
  1091.             SELECT 4,2,20,chainmacproc
  1092.             SELECT 5,2,20,macdelayproc
  1093.             SELECT 6,2,20,macinpproc
  1094.             SELECT 7,2,20,pausemacproc
  1095.             PEND
  1096.  
  1097. defmacproc:     TYPE 0,103        ;macro define
  1098. exemacproc:     TYPE 0,113        ;macro
  1099. chainmacproc:     TYPE 0,103        ;macro define (see manual)
  1100.  
  1101. macdelayproc:     EXECUTE macinpproc
  1102.  
  1103. macinpproc:     MATCH 25,1,,"Selection:  a",macinpcont,checkcapa
  1104. checkcapa:     MATCH 25,1,,"Selection:  A",macinpcont,macroeditmsg
  1105. macinpcont:     TYPE 0,132     ;macro commands(^PgUp)
  1106.  
  1107. pausemacproc:     EXECUTE macinpproc
  1108.  
  1109. footproc:         MATCH 25,1,,"Block",noblockmsg,ctovr57
  1110. ctovr57: MATCH 25,11,,"Block",noblockmsg,footcont
  1111.  
  1112. footcont:        POPUP 8,50,INVERSE
  1113.  
  1114.             TEXT "┌[Footnotes]─────┐"
  1115.             TEXT "│Create...           │█"
  1116.             TEXT "│Edit...             │█"
  1117.             TEXT "│New Number...       │█"
  1118.             TEXT "│Options...          │█"
  1119.             TEXT "│Create Endnote...   │█"
  1120.             TEXT "│Edit Endnote...     │█"
  1121.             TEXT "└────────────────────┘█"
  1122.             TEXT "███████████████████████"
  1123.  
  1124.             SELECT 1,2,4,specialmenu
  1125.             SELECT 2,2,20,crftntproc
  1126.             SELECT 3,2,20,edtftntproc
  1127.             SELECT 4,2,20,nfnproc
  1128.             SELECT 5,2,20,foptproc
  1129.             SELECT 6,2,20,crendntproc
  1130.             SELECT 7,2,20,edtendntproc
  1131.             PEND
  1132.  
  1133. crftntproc:     TYPE 0,100,"FC"    ;footnote,create
  1134. edtftntproc:     TYPE 0,100,"FE"    ;footnote,edit
  1135. nfnproc:         TYPE 0,100,"FN"    ;footnote,new number
  1136. foptproc:         TYPE 0,100,"FO"    ;footnote,options
  1137. crendntproc:     TYPE 0,100,"EC"    ;endnote,create
  1138. edtendntproc:     TYPE 0,100,"EE"    ;endnote,edit
  1139.  
  1140. dateproc:         MATCH 25,1,,"Block",noblockmsg,ctovr61a
  1141. ctovr61a: MATCH 25,11,,"Block",noblockmsg,datecont
  1142. datecont:         TYPE 0,100        ;date/outline
  1143.  
  1144. mrktxtproc:    POPUP 10,50,INVERSE
  1145.  
  1146.             TEXT "┌[Mark Text]─────┐"
  1147.             TEXT "│List...      (Block)│█"
  1148.             TEXT "│Table of Contents...│█"
  1149.             TEXT "│Index...     (Block)│█"
  1150.             TEXT "│Remove...           │█"
  1151.             TEXT "│Generate...         │█"
  1152.             TEXT "├─<WP 5.0>──────────┤█"
  1153.             TEXT "│Master/Sub Document │█"
  1154.             TEXT "│Auto Reference...   │█"
  1155.             TEXT "│Table of Authorities│█"
  1156.             TEXT "└────────────────────┘█"
  1157.             TEXT "███████████████████████"
  1158.  
  1159.             SELECT 1,2,4,specialmenu
  1160.             SELECT 2,2,20,mtlistproc
  1161.             SELECT 3,2,20,mttocproc
  1162.             SELECT 4,2,20,mtinproc
  1163.             SELECT 5,2,20,mtrmproc
  1164.             SELECT 6,2,20,mtgnproc
  1165.             SELECT 8,2,20,mtmsdproc
  1166.             SELECT 9,2,20,mtarproc
  1167.             SELECT 10,2,20,mttoaproc
  1168.             PEND
  1169.  
  1170. mtlistproc:     MATCH 25,1,,"Block",mtlcont,ctovr58
  1171. ctovr58: MATCH 25,11,,"Block",mtlcont,blockmsg
  1172. mtlcont:         TYPE 0,108, "L"    ;block mark text,lists
  1173.  
  1174. mttocproc:     MATCH 25,1,,"Block",mttoccont,ctovr59
  1175. ctovr59: MATCH 25,11,,"Block",mttoccont,blockmsg
  1176. mttoccont:     TYPE 0,108, "C"    ;block mark text,ToC
  1177.  
  1178. mtinproc:         MATCH 25,1,,"Block",mtincont,ctovr60
  1179. ctovr60: MATCH 25,11,,"Block",mtincont,blockmsg
  1180. mtincont:         TYPE 0,108, "I"    ;block mark text,index
  1181.  
  1182. mtrmproc:         MATCH 25,1,,"Block",noblockmsg,ctovr61
  1183. ctovr61: MATCH 25,11,,"Block",noblockmsg,mtrmcont
  1184. mtrmcont:         TYPE 0,108, "GR"    ;mark text,generate,remove
  1185.  
  1186. mtgnproc:         MATCH 25,1,,"Block",noblockmsg,ctovr62
  1187. ctovr62: MATCH 25,11,,"Block",noblockmsg,mtgncont
  1188. mtgncont:         TYPE 0,108, "G"    ;mark text,generate
  1189.  
  1190. mtmsdproc:     MATCH 25,1,,"Block",noblockmsg,ctovr63
  1191. ctovr63: MATCH 25,11,,"Block",noblockmsg,mtmsdcont
  1192. mtmsdcont:         TYPE 0,108, "S"    ;mark text,subdocument
  1193.  
  1194. mtarproc:         MATCH 25,1,,"Block",noblockmsg,ctovr64
  1195. ctovr64: MATCH 25,11,,"Block",noblockmsg,mtarcont
  1196. mtarcont:         TYPE 0,108, "R"    ;mark text,auto reference
  1197.  
  1198. mttoaproc:     TYPE 0,108, "A"    ;mark text,table of auth (block on/off)
  1199.  
  1200. deflstproc:     MATCH 25,1,,"Block",noblockmsg,ctovr65
  1201. ctovr65: MATCH 25,11,,"Block",noblockmsg,deflstcont
  1202. deflstcont:    POPUP 11,50,INVERSE
  1203.  
  1204.             TEXT "┌[Define Lists]──┐"
  1205.             TEXT "│List 1...           │█"
  1206.             TEXT "│List 2...           │█"
  1207.             TEXT "│List 3...           │█"
  1208.             TEXT "│List 4...           │█"
  1209.             TEXT "│List 5...           │█"
  1210.             TEXT "│Table of Contents...│█"
  1211.             TEXT "│Index...            │█"
  1212.             TEXT "└────────────────────┘█"
  1213.             TEXT "███████████████████████"
  1214.  
  1215.             SELECT 1,2,4,specialmenu
  1216.             SELECT 2,2,20,dfl1proc
  1217.             SELECT 3,2,20,dfl2proc
  1218.             SELECT 4,2,20,dfl3proc
  1219.             SELECT 5,2,20,dfl4proc
  1220.             SELECT 6,2,20,dfl5proc
  1221.             SELECT 7,2,20,dftocproc
  1222.             SELECT 8,2,20,dfinproc
  1223.             PEND
  1224.  
  1225. dfl1proc:         TYPE 0,108, "DL1"    ;mark text,define,lists,1
  1226. dfl2proc:         TYPE 0,108, "DL2"    ;mark text,define,lists,2
  1227. dfl3proc:         TYPE 0,108, "DL3"    ;mark text,define,lists,3
  1228. dfl4proc:         TYPE 0,108, "DL4"    ;mark text,define,lists,4
  1229. dfl5proc:         TYPE 0,108, "DL5"    ;mark text,define,lists,5
  1230. dftocproc:     TYPE 0,108, "DC"    ;mark text,define,ToC
  1231. dfinproc:         TYPE 0,108, "DI"    ;mark text,define,index
  1232.  
  1233. scrproc:        POPUP 12,50,INVERSE
  1234.  
  1235.             TEXT "┌[Screen]────────┐"
  1236.             TEXT "│Full/Split Window   │█"
  1237.             TEXT "│Show/Hide PositionNA│█"
  1238.             TEXT "│Display Justif.   NA│█"
  1239.             TEXT "│Colors...           │█"
  1240.             TEXT "└────────────────────┘█"
  1241.             TEXT "███████████████████████"
  1242.  
  1243.             SELECT 1,2,4,specialmenu
  1244.             SELECT 2,2,20,fullwinproc
  1245.             SELECT 3,2,20,showposproc
  1246.             SELECT 4,2,20,dispjustproc
  1247.             SELECT 5,2,20,colorsproc
  1248.             PEND
  1249.  
  1250. fullwinproc:         TYPE 0,96, "W"            ;screen,window
  1251.  
  1252. showposproc:         EXECUTE notpossmsg
  1253. dispjustproc:         EXECUTE notpossmsg
  1254.  
  1255. colorsproc:         MATCH 25,1,,"Block",noblockmsg,ctovr66
  1256. ctovr66: MATCH 25,11,,"Block",noblockmsg,colorscont
  1257. colorscont:         TYPE 0,84, "DCS"    ;setup,display,colors,screen
  1258.  
  1259. mathproc:         MATCH 25,1,,"Block",noblockmsg,ctovr67
  1260. ctovr67: MATCH 25,11,,"Block",noblockmsg,mathcont
  1261. mathcont:         TYPE 0,110        ;math/columns
  1262.  
  1263. sortproc:         TYPE 0,102        ;merge/sort
  1264.  
  1265. graphproc:     MATCH 25,1,,"Block",noblockmsg,ctovr68
  1266. ctovr68: MATCH 25,11,,"Block",noblockmsg,graphcont
  1267. graphcont:     TYPE 0,112        ;graphics
  1268.  
  1269. linedrawproc:     MATCH 25,1,,"Block",noblockmsg,ctovr69
  1270. ctovr69: MATCH 25,11,,"Block",noblockmsg,linedrawcont
  1271. linedrawcont:     TYPE 0,96, "L"        ;screen,line draw
  1272.  
  1273. lockdocproc:     MATCH 25,1,,"Block",noblockmsg,ctovr70
  1274. ctovr70: MATCH 25,11,,"Block",noblockmsg,lockdoccont
  1275. lockdoccont:     TYPE 0,98, "P"        ;text in/out,password
  1276.  
  1277. windowsmenu:    POPUP 2,52,INVERSE
  1278.  
  1279.             TEXT "┌[Windows]───────┐"
  1280.             TEXT "│Cycle Windows       │█"
  1281.             TEXT "│Show Clipboard    NA│█"
  1282.             TEXT "└────────────────────┘█"
  1283.             TEXT "███████████████████████"
  1284.  
  1285.             SELECT 1,2,4,macwindows
  1286.             SELECT 2,2,20,wincycproc
  1287.             SELECT 3,2,20,notpossmsg
  1288.             PEND
  1289.  
  1290. macwindows:     EXECUTE macmenu
  1291.  
  1292. wincycproc:     MATCH 25,1,,"Block",noblockmsg,ctovr71
  1293. ctovr71: MATCH 25,11,,"Block",noblockmsg,wincyccont
  1294. wincyccont:     TYPE 0,86                ;switch to doc 2
  1295.  
  1296. blockmsg:        POPUP 9,27,INVERSE
  1297.  
  1298.             TEXT "╔══════════════════════╗"
  1299.             TEXT "║  SELECT BLOCK FIRST! ║█"
  1300.             TEXT "║      ┌────────┐      ║█"
  1301.             TEXT "║      │ CANCEL │      ║█"
  1302.             TEXT "║      └────────┘      ║█"
  1303.             TEXT "╚══════════════════════╝█"
  1304.             TEXT "█████████████████████████"
  1305.  
  1306.             SELECT 4,10,6,exitcancel
  1307.             PEND
  1308.  
  1309. exitcancel:    EXECUTE f7,f1
  1310.  
  1311. noblockmsg:    POPUP 9,27,INVERSE
  1312.  
  1313.             TEXT "╔══════════════════════╗"
  1314.             TEXT "║     BLOCK MUST BE    ║█"
  1315.             TEXT "║   OFF BEFORE USING   ║█"
  1316.             TEXT "║     THIS COMMAND     ║█"
  1317.             TEXT "║      ┌────────┐      ║█"
  1318.             TEXT "║      │ CANCEL │      ║█"
  1319.             TEXT "║      └────────┘      ║█"
  1320.             TEXT "╚══════════════════════╝█"
  1321.             TEXT "█████████████████████████"
  1322.  
  1323.             SELECT 6,10,6,exitcancel
  1324.             PEND
  1325.  
  1326. macroeditmsg:    POPUP 9,25,INVERSE
  1327.  
  1328.             TEXT "╔══════════════════════════╗"
  1329.             TEXT "║    YOU MUST BE EDITING   ║█"
  1330.             TEXT "║  A MACRO'S ACTION TO USE ║█"
  1331.             TEXT "║      THIS COMMAND!       ║█"
  1332.             TEXT "║        ┌────────┐        ║█"
  1333.             TEXT "║        │ CANCEL │        ║█"
  1334.             TEXT "║        └────────┘        ║█"
  1335.             TEXT "╚══════════════════════════╝█"
  1336.             TEXT "█████████████████████████████"
  1337.  
  1338.             SELECT 6,12,6,exitcancel
  1339.             PEND
  1340.  
  1341. normalfontmsg:        POPUP 9,23,INVERSE
  1342.  
  1343.             TEXT "╔══════════════════════════════╗"
  1344.             TEXT "║  USE SHOW/HIDE CODES TOGGLE  ║█"
  1345.             TEXT "║  THEN ADD OR DELETE CODES AS ║█"
  1346.             TEXT "║    REQUIRED FOR PLAIN TEXT   ║█"
  1347.             TEXT "║  ┌────────────────────────┐  ║█"
  1348.             TEXT "║  │    GO TO EDIT MENU     │  ║█"
  1349.             TEXT "║  │(TO SELECT <SHOW CODES>)│  ║█"
  1350.             TEXT "║  └────────────────────────┘  ║█"
  1351.             TEXT "╚══════════════════════════════╝█"
  1352.             TEXT "█████████████████████████████████"
  1353.  
  1354.             SELECT 6,9,15,editmenu
  1355.             PEND
  1356.  
  1357. notpossmsg:        POPUP 9,24,INVERSE
  1358.  
  1359.             TEXT "╔════════════════════════════╗"
  1360.             TEXT "║ THIS WP MAC 1.0.1 FUNCTION ║█"
  1361.             TEXT "║  HAS NO EXACT EQUIVALENT   ║█"
  1362.             TEXT "║    IN WORDPERFECT 5.0      ║█"
  1363.             TEXT "║  ┌─────────────────────┐   ║█"
  1364.             TEXT "║  │ RETURN TO MAIN MENU │   ║█"
  1365.             TEXT "║  └─────────────────────┘   ║█"
  1366.             TEXT "╚════════════════════════════╝█"
  1367.             TEXT "███████████████████████████████"
  1368.  
  1369.             SELECT 6,6,19,macmenu
  1370.             PEND
  1371.  
  1372. aboutmsg:        POPUP 1,24,INVERSE
  1373.  
  1374.             TEXT "╔═════════════════════════════╗"
  1375.             TEXT "║  **  WP5MACMENU 3.1 (c) **  ║█"
  1376.             TEXT "║ WPMAC 1.0.2/Windows(R)-like ║█"
  1377.             TEXT "║      menu system for        ║█"
  1378.             TEXT "║   WordPerfect 5.0 (R) and   ║█"
  1379.             TEXT "║ MICROSOFT(R) 2 button mouse ║█"
  1380.             TEXT "║by Dave Petherick (73627,226)║█"
  1381.             TEXT "║**REGISTER THIS SHAREWARE!!**║█"
  1382.             TEXT "║         ┌────────┐          ║█"
  1383.             TEXT "║ MAY/89  │ RETURN │ Ver. 3.1 ║█"
  1384.             TEXT "║         └────────┘          ║█"
  1385.             TEXT "║      Windows (R) is a       ║█"
  1386.             TEXT "║   registered trademark of   ║█"
  1387.             TEXT "║    Microsoft Corporation    ║█"
  1388.             TEXT "║    Redmond, WA, U.S.A.      ║█"
  1389.             TEXT "║    WordPerfect (R) is a     ║█"
  1390.             TEXT "║   registered trademark of   ║█"
  1391.             TEXT "║   WordPerfect Corporation   ║█"
  1392.             TEXT "║     Orem, Utah, U.S.A.      ║█"
  1393.             TEXT "║      LOGITECH (R) is a      ║█"
  1394.             TEXT "║   registered trademark of   ║█"
  1395.             TEXT "║      LOGITECH U.S.A.        ║█"
  1396.             TEXT "║     Fremont,CA, U.S.A.      ║█"
  1397.             TEXT "╚═════════════════════════════╝█"
  1398.             TEXT "████████████████████████████████"
  1399.  
  1400.             SELECT 8,4,25,sharewaremsg
  1401.             SELECT 10,13,6,helpmenu1
  1402.             PEND
  1403.  
  1404. sharewaremsg:        POPUP 2,21,INVERSE
  1405.  
  1406.             TEXT "╔════════════════════════════════════╗"
  1407.             TEXT "║    Please help encourage the       ║█"
  1408.             TEXT "║    development of this and         ║█"
  1409.             TEXT "║    similar software by registering ║█"
  1410.             TEXT "║    your copy.  Feel free to copy   ║█"
  1411.             TEXT "║    and distribute this software    ║█"
  1412.             TEXT "║    (UNMODIFIED) and if you find    ║█"
  1413.             TEXT "║    it of value, support it!        ║█"
  1414.             TEXT "║                                    ║█"
  1415.             TEXT "║    For $10, register your copy     ║█"
  1416.             TEXT "║    of WP5MACMENU and you will      ║█"
  1417.             TEXT "║    be entitled to free periodic    ║█"
  1418.             TEXT "║     updates and an UNLIMITED       ║█"
  1419.             TEXT "║ SITE LICENCE for corporate users!! ║█"
  1420.             TEXT "║             ┌────────┐             ║█"
  1421.             TEXT "║             │  NEXT  │             ║█"
  1422.             TEXT "║             └────────┘             ║█"
  1423.             TEXT "║   Source .DEF file included free!  ║█"
  1424.             TEXT "║                                    ║█"
  1425.             TEXT "╚════════════════════════════════════╝█"
  1426.             TEXT "███████████████████████████████████████"
  1427.  
  1428.             SELECT 16,18,4,sharenextmsg
  1429.             PEND
  1430.  
  1431. sharenextmsg:        POPUP 3,21,INVERSE
  1432.  
  1433.             TEXT "╔════════════════════════════════════╗"
  1434.             TEXT "║***SUPPORT THE SHAREWARE CONCEPT****║█"
  1435.             TEXT "║  Send check or money order along   ║█"
  1436.             TEXT "║ with your mouse type,diskette size,║█"
  1437.             TEXT "║   WP5MACMENU version number and    ║█"
  1438.             TEXT "║     your mailing address to:       ║█"
  1439.             TEXT "║                                    ║█"
  1440.             TEXT "║          Dave Petherick            ║█"
  1441.             TEXT "║          P.O. Box 1002             ║█"
  1442.             TEXT "║        Tottenham, Ontario          ║█"
  1443.             TEXT "║          CANADA L0G 1W0            ║█"
  1444.             TEXT "║                                    ║█"
  1445.             TEXT "║        LOGITECH (R) 2 and 3        ║█"
  1446.             TEXT "║button mouse versions also available║█"
  1447.             TEXT "║             ┌────────┐             ║█"
  1448.             TEXT "║             │ RETURN │             ║█"
  1449.             TEXT "║             └────────┘             ║█"
  1450.             TEXT "╚════════════════════════════════════╝█"
  1451.             TEXT "███████████████████████████████████████"
  1452.  
  1453.             SELECT 16,17,6,helpmenu1
  1454.             PEND
  1455.